Revista CD Expert 8/Revista CD Expert nº 08 CD1.iso/Utilitarios/Especiais/Hotdog 5.5/hotdog55install.exe/%MAINDIR%/HotDog5.exe/0/RCDATA/TFRMFORMWIZ/TFRMFORMWIZ.txt

Text File | 1999-04-29 | 40.3 KB | 1,376 lines

object frmFormWiz: TfrmFormWiz
  Left = 331
  Top = 441
  BorderIcons = [biSystemMenu, biHelp]
  BorderStyle = bsDialog
  Caption = 'Form Wizard'
  ClientHeight = 290
  ClientWidth = 417
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Pitch = fpVariable
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object panEmailMail: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 254
    Align = alClient
    TabOrder = 4
    object Label33: TLabel
      Left = 168
      Top = 56
      Width = 241
      Height = 57
      AutoSize = False
      Caption =
        'Enter an email address in the box below. If you want the form su' +
        'bmissions to be sent to yourself, enter your own email address.'
      WordWrap = True
    end
    object Label34: TLabel
      Left = 171
      Top = 132
      Width = 81
      Height = 13
      AutoSize = False
      Caption = 'Email &Address:'
      WordWrap = True
    end
    object pbEmailWiz: TPaintBox
      Left = 18
      Top = 18
      Width = 110
      Height = 188
      OnPaint = pbEmailWizPaint
    end
    object Label43: TLabel
      Left = 168
      Top = 188
      Width = 241
      Height = 33
      AutoSize = False
      Caption =
        'Please note that if you send form details to an email address, t' +
        'he content will not be formatted.'
      WordWrap = True
    end
    object txtEmailAddress: TEdit
      Left = 168
      Top = 149
      Width = 231
      Height = 21
      HelpContext = 89
      PopupMenu = popHelp
      TabOrder = 0
      OnEnter = txtEmailAddressEnter
    end
  end
  object panEmailintro: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 254
    Align = alClient
    TabOrder = 5
    object Label32: TLabel
      Left = 172
      Top = 44
      Width = 237
      Height = 33
      AutoSize = False
      Caption =
        'To complete the form, specify where the visitors feedback is goi' +
        'ng to be sent.'
      WordWrap = True
    end
    object pbWizardFIntro: TPaintBox
      Left = 18
      Top = 18
      Width = 110
      Height = 188
      OnPaint = pbWizardFIntroPaint
    end
    object opt_Emailme: TRadioButton
      Left = 172
      Top = 120
      Width = 225
      Height = 17
      HelpContext = 87
      Caption = 'Send all form details to an &email address.'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object opt_SendElseWhere: TRadioButton
      Left = 172
      Top = 144
      Width = 217
      Height = 17
      HelpContext = 88
      Caption = 'Send form details to a &URL.'
      TabOrder = 1
    end
  end
  object panIntro: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 254
    Align = alClient
    TabOrder = 2
    object lblIntro: TLabel
      Left = 158
      Top = 28
      Width = 217
      Height = 55
      AutoSize = False
      Caption =
        'This Wizard will enable you to construct a form easily.  HTML fo' +
        'rms closely resemble their paper counterparts � they contain box' +
        'es for users to fill in.'
      WordWrap = True
    end
    object imgWizard: TPaintBox
      Left = 18
      Top = 18
      Width = 110
      Height = 188
      OnPaint = imgWizardPaint
    end
    object Label38: TLabel
      Left = 158
      Top = 162
      Width = 213
      Height = 67
      AutoSize = False
      Caption =
        'Forms consist of text boxes to type in, check boxes, drop down s' +
        'elections, upload facilities and radio buttons.  Each form eleme' +
        'nt has an associated name and a value.'
      WordWrap = True
    end
    object Label41: TLabel
      Left = 158
      Top = 92
      Width = 213
      Height = 63
      AutoSize = False
      Caption =
        'Forms are used when you need complex feedback from visitors to y' +
        'our Web site.  You have probably used forms on other Web sites b' +
        'efore.'
      WordWrap = True
    end
  end
  object panMain: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 254
    Align = alClient
    TabOrder = 1
    object panlist: TPanel
      Left = 1
      Top = 1
      Width = 136
      Height = 252
      Align = alLeft
      TabOrder = 1
      object listMain: TListBox
        Left = 34
        Top = 1
        Width = 101
        Height = 250
        HelpContext = 86
        Align = alClient
        DragMode = dmAutomatic
        ItemHeight = 13
        ParentShowHint = False
        PopupMenu = popDelete
        ShowHint = False
        TabOrder = 0
        OnDragDrop = listMainDragDrop
        OnDragOver = listMainDragOver
        OnMouseDown = listMainMouseDown
      end
      object panButtons: TPanel
        Left = 1
        Top = 1
        Width = 33
        Height = 250
        Align = alLeft
        Alignment = taLeftJustify
        TabOrder = 1
        object btnText: TSpeedButton
          Left = 6
          Top = 4
          Width = 21
          Height = 21
          Hint = 'Text Box | Click the button to add a Text Box to the list.'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777FFFFFFFFFFFFFFFF70077777077
            777777777777F7007FFF70FFFFFFFFFFFFF7F700707770FFF0FFF000FFF7F700
            70FF70FFF0FF0FFFFFF7F70070FF70FFF0FF00000FF7F70070FF70FFF0FF0FFF
            0FF7F70070FF70FFF0FFF000FFF7F70070FF70FFF0FFFFFFFFF7F70070FF70F0
            0000FFFFFFF7F70070FF70FFFFFFFFFFFFF7F70070F07000000000000000F700
            70FF777777777777777777007000777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnTextClick
        end
        object btnList: TSpeedButton
          Left = 6
          Top = 29
          Width = 21
          Height = 21
          Hint = 'ListBox |Click the button to add a ListBox to the List'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777FFFFFFFFFFFFFFFF70077777800
            000000000000F7007FFF780FF78888888880F7007800780FF7F777777780F700
            780F780FF7F777077780F700780F780FF7F770007780F700780F780FF7F70000
            0780F700780F780FF7F000000080F700780F780FF7F777777780F700780F780F
            F7FFFFFFFF80F700780F7800000000000000F700780F7888888888888888F700
            7800777777777777777777007888777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnListClick
        end
        object btnRadio: TSpeedButton
          Left = 6
          Top = 53
          Width = 21
          Height = 21
          Hint = 'Radio Button |Click the button to add a RadioButton to the List.'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777777777FFFF77777770077777777
            7FF7777FF777770077777777877FFFF77F7777007777777780FFFFFF7F777700
            777777780FFF00FFF7F77700777777780FF0000FF7F77700777877780FF0000F
            F7F77700777877780FFF00FFF7F777007778777780FFFFFF7F77770077787777
            800FFFF00F777700777777777880000887777700777777777778888777777700
            7777777777777777777777007777777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnRadioClick
        end
        object btnCheck: TSpeedButton
          Left = 6
          Top = 78
          Width = 21
          Height = 21
          Hint = 'Check Box |Click the button to add a CheckBox to the List. '
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            777777000000777777777777777777007777777FFFFFFFFFFFF7770077777778
            7777777777F77700777F77780FFFFFFFF7F77700777877780F0FFFF0F7F77700
            777877780FF0FF0FF7F77700777877780FFF00FFF7F77700777877780FFF00FF
            F7F77700777877780FF0FF0FF7F77700777877780F0FFFF0F7F7770077787778
            0FFFFFFFF7F77700777877780000000007F77700777877788888888888F77700
            7778777777777777777777007778777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnCheckClick
        end
        object btnTextArea: TSpeedButton
          Left = 6
          Top = 103
          Width = 21
          Height = 21
          Hint = 'Text Area |Click the button to add a Text Area to the List.'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777FFFFFFFFFFFFFFFF70077777077
            777777777777F7007FFF70FFFFFFFFFFFFF7F700707770FFF0FFF00F0FF7F700
            70FF70FFF0FF0FF00FF7F70070FF70FFF0FF0FFF0FF7F70070FF70FFF0FF0FFF
            0FF7F70070FF70FFF0FFF000FFF7F70070FF70FFF0FFFFFFFFF7F70070FF70F0
            0000FFFFFFF7F70070FF70FFFFFFFFFFFFF7F70070F07000000000000000F700
            70FF777777777777777777007000777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnTextAreaClick
        end
        object btnReset: TSpeedButton
          Left = 6
          Top = 127
          Width = 21
          Height = 21
          Hint = 'Reset Button |Click the button to add a Reset Button to the List'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777000000000000000070077777F88
            888888888888070070007F7777777777777807007F887F707770770007780700
            7F777F7077707077777807007F707F7077707000007807007F707F7000077077
            707807007F707F7077707700077807007F707F7077707777777807007F707F70
            00077777777807007F707F7777777777777807007F707FFFFFFFFFFFFFFF0700
            7F77777777777777777777007FFF777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnResetClick
        end
        object btnSubmit: TSpeedButton
          Left = 6
          Top = 152
          Width = 21
          Height = 21
          Hint =
            'Submit Button  |Click the button to add a Submit Button to the L' +
            'ist'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777000000000000000070077777F88
            888888888888070070007F7777777777777807007F887F770007770070780700
            7F777F7077707077007807007F777F7777707077707807007F707F7700077077
            707807007F777F7077777077707807007F777F7077707777777807007F707F77
            00077777777807007F707F7777777777777807007F777FFFFFFFFFFFFFFF0700
            7F77777777777777777777007FFF777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnSubmitClick
        end
        object btnPassword: TSpeedButton
          Left = 6
          Top = 177
          Width = 21
          Height = 21
          Hint = 'Password Box |Click the button to add a Password to the List'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777FFFFFFFFFFFFFFFF70077777077
            777777777777F7007FFF70FFFFFFFFFFFFF7F700707770F0FFFFFF0000F7F700
            70FF70F0FFFFF0FFF0F7F70070F070F0000FFF0000F7F70070F070F0FFF0F0FF
            F0F7F70070F070F0FFF0FF000FF7F70070F070F0FFF0FFFFFFF7F70070F070F0
            000FFFFFFFF7F70070F070FFFFFFFFFFFFF7F70070F07000000000000000F700
            70FF777777777777777777007000777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnPasswordClick
        end
        object btnHidden: TSpeedButton
          Left = 6
          Top = 201
          Width = 21
          Height = 21
          Hint = 'Hidden Box|Click the button to add a Hidden Box to the List'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
            7777770000007777777777777777770077777FFFFFFFFFFFFFFFF70077777077
            777777777777F7007FFF70FFFFFFFFFFFFF7F700707770FF0FFFF0FF0FF7F700
            70FF70FF0FFFF0FF0FF7F70070FF70FF0FFFF0FF0FF7F70070FF70FF000000FF
            0FF7F70070FF70FF0FFFF0FF0FF7F70070FF70FF0FFFF0FFFFF7F70070FF70FF
            0FFFF0FF0FF7F70070FF70FFFFFFFFFFFFF7F70070FF7000000000000000F700
            70FF777777777777777777007000777777777777777777007777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnHiddenClick
        end
        object btnImage: TSpeedButton
          Left = 6
          Top = 226
          Width = 21
          Height = 21
          Hint = 'Image |Click the button to add an Image to the List'
          Glyph.Data = {
            36010000424D3601000000000000760000002800000012000000100000000100
            040000000000C0000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
            0000070000000777707700770777700070000077007707707777000007770707
            777777077770700000770770777070777707700007070777070F007770777000
            0770077770F07700077770000777077777077777777770000777077777777777
            7777700007770777777777777007700007770777777777770FF0700007770777
            777777770FF07000077707777777777770077000077707777777777777777000
            0777077777777777777770000777700000000000000007000777}
          ParentShowHint = False
          ShowHint = True
          OnClick = btnImageClick
        end
      end
    end
    object pageMain: TPageControl
      Left = 137
      Top = 1
      Width = 279
      Height = 252
      ActivePage = tabIntro
      Align = alClient
      TabOrder = 0
      object tabTextBox: TTabSheet
        Caption = 'tabTextBox'
        TabVisible = False
        object lblName: TLabel
          Left = 5
          Top = 41
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editTextName
        end
        object lblSize: TLabel
          Left = 5
          Top = 86
          Width = 255
          Height = 13
          Caption = 'Text Element &Size  (number of characters In length): '
          FocusControl = editTextSize
        end
        object lblLength: TLabel
          Left = 4
          Top = 136
          Width = 154
          Height = 13
          Caption = 'Maximum number of &characters:'
          FocusControl = editTextlength
        end
        object lblValue: TLabel
          Left = 6
          Top = 189
          Width = 112
          Height = 13
          Caption = '&Default text to appear:'
          FocusControl = editTextValue
        end
        object Label1: TLabel
          Left = 4
          Top = 8
          Width = 261
          Height = 29
          AutoSize = False
          Caption =
            'A text box allows a visitor to enter a single line of text into ' +
            'a form and then submit it to you.'
          WordWrap = True
        end
        object editTextName: TEdit
          Left = 4
          Top = 56
          Width = 260
          Height = 21
          HelpContext = 71
          TabOrder = 0
          OnChange = editTextNameChange
        end
        object editTextSize: TEdit
          Left = 4
          Top = 100
          Width = 260
          Height = 21
          HelpContext = 72
          TabOrder = 1
          OnChange = editTextSizeChange
        end
        object editTextlength: TEdit
          Left = 4
          Top = 152
          Width = 260
          Height = 21
          HelpContext = 73
          TabOrder = 2
          OnChange = editTextlengthChange
        end
        object editTextValue: TEdit
          Left = 3
          Top = 204
          Width = 260
          Height = 21
          HelpContext = 74
          TabOrder = 3
          OnChange = editTextValueChange
        end
      end
      object tabListBox: TTabSheet
        Caption = 'tabListBox'
        TabVisible = False
        object Label4: TLabel
          Left = 6
          Top = 5
          Width = 273
          Height = 41
          AutoSize = False
          Caption =
            'The select element is used for menus. Each item in a menu is cal' +
            'led an option and each option has its own properties.'
          WordWrap = True
        end
        object Label2: TLabel
          Left = 6
          Top = 54
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editListName
        end
        object Label3: TLabel
          Left = 140
          Top = 54
          Width = 113
          Height = 13
          Caption = 'No. of &Items to display:'
          FocusControl = editListSize
        end
        object spdAddRow: TSpeedButton
          Left = 4
          Top = 184
          Width = 15
          Height = 15
          Glyph.Data = {
            C6000000424DC60000000000000076000000280000000A0000000A0000000100
            04000000000050000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777799777700
            0000777799777700777777779977770077777777997777007777999999999900
            7777999999999900999977779977770099997777997777007777777799777700
            77777777997777007777}
          OnClick = spdAddRowClick
        end
        object lblAdd: TLabel
          Left = 24
          Top = 186
          Width = 92
          Height = 13
          Caption = 'Add new row to list'
        end
        object lblRemove: TLabel
          Left = 142
          Top = 186
          Width = 121
          Height = 13
          Caption = 'Remove last row from list'
        end
        object spdRemoveRow: TSpeedButton
          Left = 124
          Top = 184
          Width = 15
          Height = 15
          Glyph.Data = {
            C6000000424DC60000000000000076000000280000000A0000000A0000000100
            04000000000050000000120B0000120B00001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777700
            0000777777777700777777777777770077777777777777007777999999999900
            7777999999999900999977777777770099997777777777007777777777777700
            77777777777777007777}
          OnClick = spdRemoveRowClick
        end
        object editListName: TEdit
          Left = 4
          Top = 70
          Width = 123
          Height = 21
          HelpContext = 123
          TabOrder = 0
          OnChange = editListNameChange
        end
        object editListSize: TEdit
          Left = 139
          Top = 69
          Width = 123
          Height = 21
          HelpContext = 124
          TabOrder = 1
          OnChange = editListSizeChange
        end
        object strOptions: TStringGrid
          Left = 4
          Top = 98
          Width = 260
          Height = 79
          HelpContext = 126
          ColCount = 3
          Ctl3D = True
          DefaultColWidth = 150
          FixedCols = 0
          RowCount = 3
          GridLineWidth = 2
          Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
          ParentCtl3D = False
          ScrollBars = ssVertical
          TabOrder = 2
          OnExit = strOptionsExit
          OnKeyPress = strOptionsKeyPress
          OnSetEditText = strOptionsSetEditText
          ColWidths = (
            63
            108
            63)
        end
        object chkListMultiple: TCheckBox
          Left = 4
          Top = 217
          Width = 157
          Height = 17
          HelpContext = 125
          Caption = 'Allow &multiple selections'
          TabOrder = 3
          OnClick = chkListMultipleClick
        end
      end
      object tabRadio: TTabSheet
        TabVisible = False
        object Label5: TLabel
          Left = 6
          Top = 70
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editRadioName
        end
        object Label6: TLabel
          Left = 7
          Top = 118
          Width = 114
          Height = 13
          Caption = '&Default value to return:'
          FocusControl = editRadioValue
        end
        object lblRadioMain: TLabel
          Left = 4
          Top = 8
          Width = 257
          Height = 53
          AutoSize = False
          Caption =
            'Radio buttons are the little circles that click in forms. They a' +
            're best utilized when you want to make the user to make one sele' +
            'ction only from a multitude of choices.'
          WordWrap = True
        end
        object editRadioName: TEdit
          Left = 4
          Top = 86
          Width = 261
          Height = 21
          HelpContext = 116
          TabOrder = 0
          OnChange = editRadioNameChange
        end
        object editRadioValue: TEdit
          Left = 4
          Top = 134
          Width = 259
          Height = 21
          HelpContext = 117
          TabOrder = 1
          OnChange = editRadioValueChange
        end
        object chkRadioSelected: TCheckBox
          Left = 7
          Top = 172
          Width = 97
          Height = 17
          HelpContext = 118
          Caption = '&Selected'
          TabOrder = 2
          OnClick = chkRadioSelectedClick
        end
      end
      object tabCheck: TTabSheet
        Caption = 'tabCheck'
        TabVisible = False
        object Label7: TLabel
          Left = 6
          Top = 82
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editCheckName
        end
        object Label8: TLabel
          Left = 7
          Top = 128
          Width = 117
          Height = 13
          Caption = '&Default value to return :'
          FocusControl = editCheckValue
        end
        object Label9: TLabel
          Left = 4
          Top = 2
          Width = 265
          Height = 74
          AutoSize = False
          Caption =
            'Check Boxes are best used when the user is presented with a yes/' +
            'no choice. Each check box has its own name as specified by the N' +
            'ame property. You should make this name meaningful so you can de' +
            'cipher the users response when it is email to you.'
          WordWrap = True
        end
        object editCheckName: TEdit
          Left = 4
          Top = 98
          Width = 263
          Height = 21
          HelpContext = 106
          TabOrder = 0
          OnChange = editCheckNameChange
        end
        object editCheckValue: TEdit
          Left = 4
          Top = 143
          Width = 263
          Height = 21
          HelpContext = 107
          TabOrder = 1
          OnChange = editCheckValueChange
        end
        object chkCheckBoxChecked: TCheckBox
          Left = 5
          Top = 177
          Width = 65
          Height = 17
          HelpContext = 108
          Caption = '&Checked'
          TabOrder = 2
          OnClick = chkCheckBoxCheckedClick
        end
      end
      object tabTextArea: TTabSheet
        Caption = 'tabTextArea'
        TabVisible = False
        object Label10: TLabel
          Left = 4
          Top = 3
          Width = 255
          Height = 41
          AutoSize = False
          Caption =
            'Text areas are used when you want extended feedback from a visit' +
            'or. Otherwise they are just like Text boxes. '
          WordWrap = True
        end
        object Label11: TLabel
          Left = 7
          Top = 49
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editTextAName
        end
        object lblRows: TLabel
          Left = 6
          Top = 89
          Width = 33
          Height = 13
          Caption = '&Rows: '
          FocusControl = editTextARows
        end
        object Label12: TLabel
          Left = 6
          Top = 130
          Width = 134
          Height = 13
          Caption = 'Number of &characters long: '
          FocusControl = editTextACols
        end
        object Label13: TLabel
          Left = 7
          Top = 170
          Width = 112
          Height = 13
          Caption = '&Default text to appear:'
          FocusControl = memTextAValue
        end
        object editTextAName: TEdit
          Left = 4
          Top = 64
          Width = 261
          Height = 21
          HelpContext = 109
          TabOrder = 0
          OnChange = editTextANameChange
        end
        object editTextARows: TEdit
          Left = 4
          Top = 104
          Width = 262
          Height = 21
          HelpContext = 110
          TabOrder = 1
          OnChange = editTextARowsChange
        end
        object editTextACols: TEdit
          Left = 4
          Top = 144
          Width = 262
          Height = 21
          HelpContext = 111
          TabOrder = 2
          OnChange = editTextAColsChange
        end
        object memTextAValue: TMemo
          Left = 4
          Top = 184
          Width = 261
          Height = 56
          HelpContext = 112
          ScrollBars = ssVertical
          TabOrder = 3
          OnChange = memTextAValueChange
        end
      end
      object tabReset: TTabSheet
        Caption = 'tabReset'
        TabVisible = False
        object Label14: TLabel
          Left = 5
          Top = 51
          Width = 44
          Height = 13
          Caption = 'Ca&ption: '
          FocusControl = editResetValue
        end
        object Label15: TLabel
          Left = 4
          Top = 8
          Width = 253
          Height = 31
          AutoSize = False
          Caption =
            'The Reset button returns every element in your form to its defau' +
            'lt value. '
          WordWrap = True
        end
        object editResetValue: TEdit
          Left = 4
          Top = 68
          Width = 259
          Height = 21
          HelpContext = 115
          TabOrder = 0
          OnChange = editResetValueChange
        end
      end
      object tabSubmit: TTabSheet
        Caption = 'tabSubmit'
        TabVisible = False
        object Label16: TLabel
          Left = 5
          Top = 49
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editSubmitName
        end
        object Label17: TLabel
          Left = 5
          Top = 99
          Width = 41
          Height = 13
          Caption = '&Caption:'
          FocusControl = editSubmitValue
        end
        object Label18: TLabel
          Left = 4
          Top = 8
          Width = 271
          Height = 29
          AutoSize = False
          Caption =
            'The Submit button allows a visitor to send their form choices to' +
            ' you.'
          WordWrap = True
        end
        object editSubmitName: TEdit
          Left = 4
          Top = 66
          Width = 261
          Height = 21
          HelpContext = 113
          TabOrder = 0
          OnChange = editSubmitNameChange
        end
        object editSubmitValue: TEdit
          Left = 4
          Top = 114
          Width = 261
          Height = 21
          HelpContext = 114
          TabOrder = 1
          OnChange = editSubmitValueChange
        end
      end
      object tabPassword: TTabSheet
        Caption = 'tabPassword'
        TabVisible = False
        object Label19: TLabel
          Left = 6
          Top = 59
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editPasswordName
        end
        object Label20: TLabel
          Left = 6
          Top = 106
          Width = 142
          Height = 13
          Caption = 'Element &size  (in characters): '
          FocusControl = editPasswordSize
        end
        object Label21: TLabel
          Left = 6
          Top = 154
          Width = 154
          Height = 13
          Caption = 'Maximum number of &characters:'
          FocusControl = editPasswordlength
        end
        object Label22: TLabel
          Left = 6
          Top = 200
          Width = 114
          Height = 13
          Caption = '&Default value to return:'
          FocusControl = editPasswordValue
        end
        object Label23: TLabel
          Left = 5
          Top = 0
          Width = 270
          Height = 59
          AutoSize = False
          Caption =
            'Password boxes are just like text entry boxes, but any character' +
            's the user inputs are represented as asterisks. They are used fo' +
            'r the entry of confidential information such as credit card numb' +
            'ers, wages or passwords.'
          WordWrap = True
        end
        object editPasswordName: TEdit
          Left = 4
          Top = 74
          Width = 261
          Height = 21
          HelpContext = 119
          TabOrder = 0
          OnChange = editPasswordNameChange
        end
        object editPasswordSize: TEdit
          Left = 4
          Top = 122
          Width = 261
          Height = 21
          HelpContext = 120
          ParentShowHint = False
          ShowHint = False
          TabOrder = 1
          OnChange = editPasswordSizeChange
        end
        object editPasswordlength: TEdit
          Left = 4
          Top = 168
          Width = 261
          Height = 21
          HelpContext = 121
          TabOrder = 2
          OnChange = editPasswordlengthChange
        end
        object editPasswordValue: TEdit
          Left = 4
          Top = 214
          Width = 261
          Height = 21
          HelpContext = 122
          TabOrder = 3
          OnChange = editPasswordValueChange
        end
      end
      object tabHidden: TTabSheet
        Caption = 'tabHidden'
        TabVisible = False
        object Label24: TLabel
          Left = 3
          Top = 83
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editHiddenName
        end
        object Label25: TLabel
          Left = 3
          Top = 132
          Width = 114
          Height = 13
          Caption = '&Default value to return:'
          FocusControl = editHiddenValue
        end
        object Label26: TLabel
          Left = 4
          Top = 5
          Width = 263
          Height = 55
          AutoSize = False
          Caption =
            'The Hidden element contains pre-specified values unseen to the u' +
            'ser.  When the form is submitted, all of the data inside the Hid' +
            'den field is submitted with it � it usually contains notes about' +
            ' the form, for example'
          WordWrap = True
        end
        object Label27: TLabel
          Left = 3
          Top = 57
          Width = 260
          Height = 13
          Caption = 'where it is stored, on what site and for what purpose.'
        end
        object editHiddenName: TEdit
          Left = 2
          Top = 99
          Width = 261
          Height = 21
          HelpContext = 130
          TabOrder = 0
          OnChange = editHiddenNameChange
        end
        object editHiddenValue: TEdit
          Left = 2
          Top = 147
          Width = 261
          Height = 21
          HelpContext = 131
          TabOrder = 1
          OnChange = editHiddenValueChange
        end
      end
      object tabImage: TTabSheet
        Caption = 'tabImage'
        TabVisible = False
        object Label28: TLabel
          Left = 4
          Top = 2
          Width = 261
          Height = 75
          AutoSize = False
          Caption =
            'The Image element is essentially a submit button which uses an i' +
            'mage instead of the generic gray element. This element returns t' +
            'wo values (x and y) which indicate which part of the image was c' +
            'licked when the submission was made.'
          WordWrap = True
        end
        object Label29: TLabel
          Left = 5
          Top = 88
          Width = 34
          Height = 13
          Caption = '&Name: '
          FocusControl = editImageName
        end
        object lblFilename: TLabel
          Left = 5
          Top = 137
          Width = 49
          Height = 13
          Caption = '&Filename: '
          FocusControl = editImageFileName
        end
        object spdImgFile: TSpeedButton
          Tag = 56
          Left = 140
          Top = 152
          Width = 21
          Height = 21
          OnClick = spdImgFileClick
        end
        object editImageName: TEdit
          Left = 4
          Top = 104
          Width = 159
          Height = 21
          HelpContext = 127
          TabOrder = 0
          OnChange = editImageNameChange
        end
        object editImageFileName: TEdit
          Left = 4
          Top = 152
          Width = 137
          Height = 21
          HelpContext = 128
          TabOrder = 1
          OnChange = editImageFileNameChange
        end
        object panImage: TPanel
          Left = 172
          Top = 96
          Width = 89
          Height = 89
          HelpContext = 129
          BevelOuter = bvLowered
          TabOrder = 2
          object pmiPreview: TPMultiImage
            Left = 1
            Top = 1
            Width = 87
            Height = 87
            HelpContext = 129
            GrabHandCursor = 5
            Align = alClient
            BorderStyle = bsSingle
            Scrolling = True
            B_W_CopyFlags = [C_DEL]
            Color = clBtnFace
            ImageName = 'file not found'
            ImageReadRes = lAutoMatic
            BlitMode = sLight
            ImageWriteRes = sAutoMatic
            TifSaveCompress = sNONE
            TiffPage = 1
            TiffAppend = False
            JPegSaveQuality = 25
            JPegSaveSmooth = 0
            RubberBandBtn = mbLeft
            ParentColor = True
            Stretch = True
            TextLeft = 0
            TextTop = 0
            TextRotate = 0
            TabOrder = 0
            TabStop = False
            ZoomBy = 10
          end
        end
      end
      object tabIntro: TTabSheet
        Caption = 'tabIntro'
        TabVisible = False
        object Label30: TLabel
          Left = 30
          Top = 8
          Width = 215
          Height = 67
          AutoSize = False
          Caption =
            'Each of the ten buttons of the left, when clicked, will insert a' +
            ' Form Element onto the Form Element List. Each Form Element'#39's pr' +
            'operties can be edited from the wizard.'
          WordWrap = True
        end
        object Label31: TLabel
          Left = 28
          Top = 84
          Width = 219
          Height = 57
          AutoSize = False
          Caption =
            'To change the order of any of the Form Elements in the Form Elem' +
            'ent List, just drag a Form Element to its new position in the li' +
            'st.'
          WordWrap = True
        end
        object Label39: TLabel
          Left = 28
          Top = 148
          Width = 223
          Height = 41
          AutoSize = False
          Caption =
            'To delete any of the Form Elements from the Form Element List, j' +
            'ust right click over a Form Element, and select delete.'
          WordWrap = True
        end
        object Label40: TLabel
          Left = 26
          Top = 208
          Width = 199
          Height = 31
          AutoSize = False
          Caption = 'Click Help below for help on any of the Form Elements.'
          WordWrap = True
        end
      end
    end
  end
  object panEmailForm: TPanel
    Left = 0
    Top = 0
    Width = 417
    Height = 254
    Align = alClient
    TabOrder = 3
    object Label35: TLabel
      Left = 165
      Top = 55
      Width = 116
      Height = 13
      Caption = 'Format (&METHOD type):'
    end
    object Label36: TLabel
      Left = 164
      Top = 116
      Width = 150
      Height = 13
      Caption = 'URL to send data to (&ACTION):'
    end
    object Label37: TLabel
      Left = 164
      Top = 173
      Width = 145
      Height = 13
      Caption = 'Choose data type (&ENCTYPE):'
    end
    object pbFormWiz: TPaintBox
      Left = 18
      Top = 18
      Width = 110
      Height = 188
      OnPaint = pbFormWizPaint
    end
    object lblHelp: TLabel
      Left = 6
      Top = 228
      Width = 158
      Height = 13
      Caption = 'The Help Context Id Tag Storer. '
      Visible = False
    end
    object cmbMethod: TComboBox
      Left = 162
      Top = 70
      Width = 240
      Height = 21
      HelpContext = 90
      ItemHeight = 13
      Items.Strings = (
        'GET'
        'POST')
      PopupMenu = popHelp
      TabOrder = 0
      Text = 'GET'
      OnEnter = cmbMethodEnter
    end
    object txtAction: TEdit
      Left = 162
      Top = 130
      Width = 240
      Height = 21
      HelpContext = 91
      PopupMenu = popHelp
      TabOrder = 1
      OnEnter = txtActionEnter
    end
    object txtEnctype: TEdit
      Left = 162
      Top = 188
      Width = 240
      Height = 21
      HelpContext = 92
      PopupMenu = popHelp
      TabOrder = 2
      OnEnter = txtEnctypeEnter
    end
  end
  object panFooter: TPanel
    Left = 0
    Top = 254
    Width = 417
    Height = 36
    Align = alBottom
    TabOrder = 0
    object btnOk: TButton
      Left = 257
      Top = 5
      Width = 75
      Height = 25
      Caption = '&Finish'
      ModalResult = 1
      TabOrder = 3
      OnClick = btnOkClick
    end
    object NextButt: TButton
      Left = 257
      Top = 5
      Width = 75
      Height = 25
      Caption = 'Next >&>'
      TabOrder = 2
      OnClick = NextButtClick
    end
    object btnCancel: TButton
      Left = 337
      Top = 5
      Width = 75
      Height = 25
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 4
    end
    object BackButt: TButton
      Left = 181
      Top = 5
      Width = 75
      Height = 25
      Caption = '&<< Back'
      Enabled = False
      TabOrder = 1
      OnClick = BackButtClick
    end
    object btnHelp: TButton
      Left = 6
      Top = 5
      Width = 75
      Height = 25
      Caption = '&Help'
      TabOrder = 0
      OnClick = btnHelpClick
    end
  end
  object popDelete: TPopupMenu
    Left = 74
    Top = 109
    object DeleteFormElement1: TMenuItem
      Caption = 'Delete Form Element'
      OnClick = DeleteFormElement1Click
    end
  end
  object popHelp: TPopupMenu
    Left = 77
    Top = 62
    object WhatsThis1: TMenuItem
      Caption = 'What'#39's This?'
    end
  end
end